-- card: 3016 from stack: in
-- bmap block id: 3376
-- flags: 0000
-- background id: 2578
-- name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=53 top=250 right=268 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Folder Name


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=53 top=275 right=304 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Folder
----- HyperTalk script -----
on mouseUp
  if card field "Folder Name" is empty then
    Alert 3,2,"No folder name given",False
    exit mouseUp
  end if

  NewFolder card field "Folder Name"

  if the result is not empty then
    OSErr "©1988SDrazga", the result
  else
    Alert 1,1,"Folder created",False
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=361 top=275 right=304 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  domenu "Quit HyperCard"
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=50 top=230 right=250 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: 


-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=208 top=275 right=304 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  put StandardFile("get:OK", "STAK") into dest
  if dest is empty then
    exit mouseUp
  end if

  put the value of word 2 of the long name of this stack into source
  set the cursor to busy
  ResCopy source, dest, "XCMD", "NewFolder"
  if the result is not empty then
    Alert 3,1,the result,False
  end if
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=50 top=79 right=225 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part contents for card part 6
----- text -----
Folder name:

-- part contents for card part 8
----- text -----
NewFolder  by David Elliott

NewFolder <pathname>[,<pathname>...]

This XCMD takes a list of pathnames and creates each folder, including all of the ancestors of the folder that do not exist.  Note that a pathname must begin with the volume name for this XCMD to work as expected. 

The result is the system error if any occured, and is empty otherwise.

Copyright 1990, by David C. Elliott.
You are free to use this XCMD in any of your stacks or collections
(commerical or not) as long as you include this copyright.  This applies only to the NewFolder XCMDs.  Other XCMDs in this stack have other restrictions.

If you need an XCMD that will create folders under the auspices of the Standard File dialog, check out Ubique™ by Chris Watson.

Portions © Symantec Corp.
ResCopy © Apple Computer, Inc.
Standard File © Nigel Perry
Portions ©1988 Steve Drazga
Alert by Maurice Volaski